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BEGIN® TIME SHARING SYSTEM*STATISTICS FILE ANALYSIS, 00000100 
COMMENT$ * TITLE? BS500/6B5700 MARK XIV SYSTEM RELEASE rs 00000110 
FEE IDE SYMBCLZSTATSI TAPE Jp! SYMpuLe/FILEQOO = * QO0000111 
* THIS MATERIAL IS PROPRIETARY TG BURROUGHS CORPORATION * 00000112 
* AND JS ACT TO BE REPROUOUCED* USED» UR oIlSclLOSED * 00000413 
oo EXCEPT In ACCURDANCE WITH PROGRAM LICENSE GR UPON *  O0U00114 
* WRITTEN AUTHORIZATION GF TRE PATEAT VIVISION OF * 00000115 
* RURROUGHS CURPORATION® VETROITs MICHIGAN 48232 * 00000116 
* * 
* COPYRIGHT (CC) 1971» 1972 BURROUGHS CORPORATIUN * 00000118 
* AA320206 AA38665? a} 00000119 
PRIN sift suse eee ott ae sh oe QUO OP 00s n= eae ts 
DISK DISK SERYJAL (€2060%60)» ; 00000300 
TWX REMOTE(2240)3 00000400 
See A tn Eh a a re ee QOD OO SO Oar tes oe ae 2 
Se ee mF Oe Oe ay ee En OY OD Om wm OH OD om FORMATS ofan ate man wanton aman nmamaamamm mene ()()() (601 
00000700 
FORMAT FCAGe™ S"sFO,2e"R Ais TBIPAF (AL) » BOO 
FSCAGH™ F"s2( F629 S"s Alo lbs"» ")oF4el)» 00000900 
HO Cxee"%® OF F/O" eo KxXIe"# LO" xX5e"% CF CHAR", x1 e"TOTAL SEGS"s X3> ocvolooo 
bed CA 2 a ee a ERE ea RRS SO RRR IO 9 1°11) 9 eC 
DOWC*AVG. DISK DELAY = “sF 7,35" SECSe")s 00001200 
SWC"AVG. SWAP DELAY = “sE7,3%" SECSe")» 00001300 
TSC"TOTAL SWAP DELAY = "sF7,3o" MINSe")» °° 2 OOO HOO he Pe 
TOCWTOTAL DISK DELAY = “sF7,39" MINSe™)» 000uU1500 
DNO™DOWN TIME = “sR 7.35" MI Nast), 00001600 
HCAGeX2eF O,22%")> peas See ee a eS} 01 108 A010 ee eraeat 
TMCwTIME SINCE LAST RALT/LUAD IS “eles HOURS ANU ‘ye 00091800 
Tee" MINUTES") eh O"STATISTICS FROM "sloe"™s%ofor” UN "Oe 00001900 
" TO “sT2e"s", 120" ON “oOo "9 GlAGsX2e2(Fb.20"% dd» OOUO 2000 ann ee 
NC/YNORMALIZED"/) »BICs/" BUSY IDLE"/ )» 00002100 
DOGRAPHSC("GRAPHS DESIKEUCYES CR NO)*")e 0G002260 
CX2eT 39 X2oF. Basie ae ue OOOO RRO Oe 
F2CX2013)» 00002400 
FAUX Dg EAS eater ap aga Osa SRE eee Se ee Le a es ee 9 00002560 
VET man, One MEne  monamanan sama tama wi, _ 00002600 — 
Ny www memennpemanemmwny), 0U0G2700 
F40X169"0 10 20 39 ae 0c002800 
ee A SO 40 70 2 sis OD te ie re sy ah 
"B80 90 {OU")» 00003000 
FSC"SWAPPING STATISTICS™)> 00003100 
F6C"SEQMENT COUNT IN SEGMENTS/I0* = FREQUENCY ULISTRIBUTIUN")>» 00003200 
F7CX{s"SEQMENTS & OF" )» 000U3300 
FACX4»" MOVED CHAR") » 0G003400 
FOCX{ sp taencnnms mmm) ys 00003500 
FLOCKX1»e” MOVED Id "de 00003600 
FIICKX49s"PERCENTAGE OF CHARACTERS TRANSFERRED"), 00003700 
FLCCKXS2s"PERCENTAGE OF I/O JPERATIONS")» 00003800 calico: : 
TOHDRIC"DISK 170°"), 00003900 
IOHDR2C"OTHER I/0"")>» o00c40oN 
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SAVE ARRAY ACO261) 5B00281)-+SUMSTATL(Oi60)3 000U4500 
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STREAM PROCEDURE SCANFILE(LUG)3 00005200 e 
__..._ BEGIN R y ALI; ete ate oO i nh Aig tate tone ea tall 
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Olsaple13 00005500 1@ 
7 fF Sce"se soo et OOUOSAOO 8. Pe ne 3 
SIssSl413 Cltspl el; 00005700 4 
DS:=? CHR3 ocooseoc |@ 
SLOG LOCALIS UIizLuGs —--.. OOVNS90E e 
DS:=#16 CHR; 00006G00 i 
ENDS 00006100 | |@ 
new awenreeneneetanenan tse snena ann atenaseneenen teaser anenasasnonmemenmn (00620 Pree ih eet, fe oe 9 
STREAM PROCEDURE FILLITCARAY*NieN2eN3eNG)3 VALUE NisN2eN3eNGB 00006300 ia 
BEGIN 00006400 /@ 
OLt:=ARAY3 ites aot athe atic OO U GSO Gi fe aie ie Ente See a 
DSt=16LIT" "3 00006600 | 19 
DStsLIT"s"; 00006700 @ 
NiCOStsL [Te —_ 00006800 = ba 
N2CDSS=LITHe"); 0guu6g00 "6 
N3CDStSLIT™ ")3 00007000 |\@ 
N4CDSS=LIT™ ")5 COU0 71006 nes A el ee al "9 
END FILLIT3 00007200 "9 
LOTHAR M KAMER KKM RRMA NAHI KK KM nmnnmanmamenmememmmen()()()()7 300 24 @ 
BOOLEAN STREAM PROCEDURE SCANTWXCYESURNOD3 O0O007400, 24 
BEGIN 00007500 2: 
STiSYESORNQ3 00097600 21® 
__8CIF Sc="¥" TH TaLnYist FLSE SlisSi+i)y3 Graatiecirrseesrece ©1012 07 2 9 a ame ae ee ree ee ee 24 
SCANTWXS=TALLYS ; 00007800 2 
ENDS 00007900 | @ 
YS dabedadabelaadokeladaiealaalaeiekalbeiakeledadeledatetelaialbekelel ttt LLC Q OOO a oe 2 
PRUCEDURE GRAPHIT(STR»A)3 VALUE AS HEAL As ARRAY STRE*)3 00008100 28 
BEGIN 00008200 21@ 
WRITECPRINTCOBLIJ*F5)3 WRITECPRINILDBLI>F6)$ OOOO SSO ac ce el ee ee Wek teas nce 30 
WRITECPRINT#F?)3 | oa 00008400 31 
IF AZO THEN WRITECPRINTCOBLJ*F3) ELSE WRITECPRINTCDBLIZFL028 00008500 32 
WRITECPRINTCOBL IF 9)3 rer 1-1 ee ee a ee ee i 
FOR [t= 60 STEP =] UNTIL 0 DO 00008700 
BEGIN G0008B00 | 3@ 
___C&FENTIERCSTRILTIJ)4 Stsi03ecs a ORCAS E10? Re en ee ee ee ee eee a6 
IF ¢ GTR 63 THEN 00009000 7 
BEGIN 00009100 4 @ 
__.___ D203 A a eg a Se te ee OOM OF EON. ce: aa 39 
Tt=C=633 00009300 40 
Ct=633 00009400 a1 
END ELSE IF ¢ LSS 40 THEN 00009500, Aa 
BEGIN | . 00009600 4 
Dts$~9633 00009700 @ 
$3963} 00009800 ———™ = 49 
T?=03 00009900 ‘0 
END ELSE 06010000 71 W 
BEGIN 00010400 r 
Dt203 00010200 4s 
Ttz03 | 00010300 | | @ 
NO ihn bie i es 00010400 See ee ee ee ee 51 
IF C=O AND STRCI] NEQ O THEN BEGIN ci=1) St=S°1 ENO: 00010500 5 
IF €C+#T+04S) GEG 104 THEN GO TO DOAGAIN; 00010600 s|@ 
IF (C LSS 0) UR (T LSS 0) GR (9 LSS 0) UR CD LSS 0) THEN 00010700, : 
GO TO DOAGAIN; . — a7 " 00910800 2 ES 
FILLITCFILLARRAYEO}+CaTsSeD)3 00010900 co @ 
WRITECPRINTENO] +1 5¢F TLLARRAYE #23 00011000 | | 7 : 5 
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FILL DISK: WITH atic ge PO Nos ae 00016800 
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IF STREET] NEQ O THEN WRITECPRINTS FL, [-STROC1)) ELSE 00011100 
WRITECPRINTsFael)s 00011200 
END; oe Be en a ce eet OOD OO ste oh sates ty aera 
WRITECPRINTECOBLI+F3)3 00011400 
WRITECPRINT*F4)3 WRITE CPRINT)3 00011500 
If A = 0 THEN WRITECPRINT*F11) ELSE WRITECPRINTsPie)s IT HOD 
END GRAPHIT3 00011700 
Prt tases mata mae Ee cere teat amat ane naun awn aman wanaaumammasememen(}()11 800 
PRUCEDURE PPCP1L»P2sPZ)FI VALUE PhlpPee rds REAL P 2pP33} 00 209 
BEGIN 00012000 
AP2?tsALABS( P|) 13 00912100 
IF Pe LSS 0 THEN BEGIN P2t=aascP2ds aCPels=aP2.tyt23) END ELSE 00032200 
ACP2]$=AP2,(24824); 00012300 
IF ALP2) NE@ O THEN 00012400 
_IF P3=0 THEN Ns ae Se ee a ow OU PE SOG on ot cee 
WRITE CPRINT#GsPisACP2I/TOTALX 100» CTOTAL™ ACP2])/TOTALx100) 00012600 
ELSE 00012700 
WRITECPRINTsHe PIs ALP2I/TOTALX100)3 00012800 = 
ACP2]%=AP2; 00012900 
END: 00013009 
STE e tT ee eS ee aT eee eae eee eee ee Rees Na eee amen wae Sem eres OO C3100 — «Soe 5 len ce a 
PROCEDURE RCRisR2)s VALUE RieR2s REAL RieR2s 00013200 
BEGIN REAL AR23 00013300 
AR2USACABS CG) DS nnn a OOP TRO Se 
IF R2 LSS QO THEN BEGIN R2%=ABS(RZI5 ACRe)teAKe,( 4223] ENO ELSE 00013500 
ACR2]8=AR2,(24324]3 00013600 
UE DN OE 8 a a ce HOO OTST O OY oe og ep ee tienes a 
BEGIN IF RUNTOTAL THEN ALOJ2=ALO]“ACR2]; 00013800 
IF RUNTOTAL THEN AC 30J%=AC 30]"AC R24 30I3 00013900 
IF SEGS THEN 00014000 eae Lee 
BEGIN 00014100 
WRITECPRINTsFSe9R ie CEECACREZISTOTALXYCOU oo", ALR2I» 00014200 
SCACRE+30 J /SEGTUTKIVO ee "sACR2+30 Jo TP SCALR2+30)/ALK2)))53 00014300 — = 
IF GRAPHS THEN 00014400 
BEGIN 00014500 
IF T LSS OC THEN T?#0 ELSE he ee a ee ee WOU PRO 0 oly ute ee 
TSSENTIER(T); 000147060 
STRCTI2=STROTI+53 00014800 
Be a dR a i a a rn WOOO. 8 Si ule en 
ENDs 00015000 
END ELSE 00015100 
WRITECPRINToF eRi sALCR2AIATOTALXI00s Ye ALR2I)3 00015200 ee 
ENO} 000145300 
ALR2IJF ZAR23 00015400 
ENDS Q Ee OEE 
Forename ewe e eRe R NNN Reman RnR ENEHaaRannweEnantnnanenamnonmanamwae()() 15600 
OEF INE a : ; 00015700 
P. PO apps p ~ = : : . 
Tee ACRE RCOqse 30) ATQ3ZI8=TOTALTALQSI]S RC QZrQ3)+ #5 00015900 
BKF=WRITECPRINT) #3 00016000 


: | : | 00016300 
RI NOC TWX eS Se Moone hel agate as Shee 0 
IF SCANTWXCY) THEN praedcis RUG? 00016500 
WRITE (TWXESTOP J» ASKFORAFILE)4 READCTWXs2eLUGL*I)4 00016600 
SCA () 00016700 
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READ COISK»60sAC*I)CECF 45 000171400 
IF ALO] = REALCNOT FALSE) THEN 00017200 
pa OOO FO a ee a ty 
BEGIN 00017400 
FOR I#=O STEP 4 UATIL S9 DO ALTIi#SuMSTaTl I); 00017500 
AC29)t2ENDTIME} = 00017600 
ENDTOGS=TRUES 00017700 
END ELSE 00017800 
BEGIN 00017900 0 
IF BEGINTOG THEN BEGIN STARTIMES=AL47]3 BEGINTOGs FALSE ENDS 00018000 
FOR [#20 STEP £4 UNTIL 27 DO SUMSTATLIIJ2=SUMSTATCrI4aCIi3 00018;100 
FOR 1%a30 STEP 1 UNTIL 46 DU SUMSTATLIJP=SUuMSTATCIJ+¢all 33 00038200 
FOR [8=48 STEP 4 UNTIL 59 DO SUMSTATCI]:=SuUMSTAT( II+ALTI3 00018300 
SUMSTAT(28)!=A(28]; 00018400 
END3 Wr OL OE) =o 0 © aa a ce ee 
; 00018600 
- BKS WRITECPRINTIPAGEI 93. - 00018700 
WRITECPRINTs TM ACL) DIV 216000raC1)/3600 Mon 60)3 CBB OO 
IF ENDTOG THEN 00018900 
WRITECPRINTsL» STARTIME DIV 216000» STARTIMES 00019000 
3600 MOD 60eAr28),CK%=AL29)) VIV 216000,xX/43600 MUD 605A[28)) 00019100 
ELSE 009019200 
WRITECPRINTsL 2 AL47) CIV 216000+A047]43600 mad 60>» 00019300 
ACEBI+CX8FA029)) DIV 2160005x/3600 MOD 60eA(28I1)3 00019400 
ACOJS=MAXCALO12AL2]1)3 00019500 
TOTAL?2AL0]73 00019600 
GTOT&=A ; ee ec ee eT cE ee a eeleeveepmenee eee Recs 01, 1° 1 213 1 ee nee eee mee acct 
TOTIO?SALOJ+(OTHERIOSEAL SB. C1223 }+al5aj.,C24224 5+ 00019800 
AL993,01%23344(591,0242241)3 009019900 
AK Ss OOO2O0O000 ss 
WRITECPRINTsOWs ALC 32I/TOTAL/60)3 00020100 
WRITECPRINTs TOs AC321/3600)3 00020200 
=O THEN QOO20300 
WRITECPRINTsSWe ALS3I/ AL34]7 000) 00020400 
WRITE CPRINTsTS2AL33)/3600)3 00020500 
BK 3 sot DOO CORO Oe oe 
WRITE CPRINTSHD)3 00020700 
BKs 009020800 
SEGSt=eTRUES RO"TOTAL %,0)3 SEGSt=FALSES 00020900 
Yr2ni; 00021000 
BK 00021100 
QC"DKA *,"DKB Me2)3 00921200 ee 
BK3 00021300 
RC“EU O %24)3 00021400 
RCE Mpeh)5 00921500 LS 
RC"EU 2 %,5)3 00921600 
RC*EU 3 "e"5)3 00921700 
BKs 00921800 _C 
WRITECPRINT»IOHOR1)S 00021900 
BK3 00022000 
RC"IO 1 + 35)3 00022400 a 
RC"JO 2 236)3. 00022200 
RE"JO 3 "3593 00022300 . 
“ROMIO 4 = %5"36)3 00022400 
BK 00022500 
WRITECPRINTsIOHDR2)3 00022600 
BK 00022700, 
TOTAL SsOTHERIO; 00022800 
RC"IG 1 "55833 we as 00922900 
ERO TO 2B Me SOUE ee ee ges 00023000 
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RC"10 3) ™s"58)3 

RC"I0 4 s"59)3 

BK 

WRITECPRINTs IOHDR3) 3 

TOTALS =TOTIO3 

BK3 

AC289, 062482493 =A(58)., 624324) +A 3D). 242 24); 
AC99) ,CA4t2d)t=Al59) .(24e 2414Al 36] Cea 24); 
AL28} $23)%=ar58) 223)+AL35 1:23)3 
ACSOICLSS3) F eA 591. C1323) +A 36300 1823)3 
RC"IO 1 5893 

RC"I0 2 5993 

RC"IO 3 "s"59)3 

RC"190 4 5959); 

BK3 
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QC"NORMAL*s"CONTRL 29903 
BK 
QC"BELOW “sPARBOVE 54373 
BKs 
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FOR tte0 SEF 1 UNTIL 100 DO STRETIS=STR2CT 18205 


ToT ELETy 
RC"HEADER"» 25)3 
R "NA ES Ws CY r 
RC"SYS DK%s23)3 
RC"LOG "s24)3 
RO"TANKS 51693 
RC"LIBRY "s18)3 
BK3 

RC"SWAPS "s15)3 
BKs 

RC™CODE M1093 
RC"CODE BYs19)3 
RC"CODE A™s20)3 
BK 3 

RC"DATA B%s21)3 
RC“DATA A™s22)3 
BKs 

RC"FILES “s27)3 
RUNTOTALS=FALSE3 
BK3 

RC"OTHER "20)3 


SEGSteF ALSES 


WRITECPRINTsBY)3 | 
TOTAL 4#AL313 z 
PC™SYSTEM%s14)3 
FOR yrsi STEP 1 UNTIL 2 0O 
BEGIN 


PCONRM PiMs"6)3 PCMNRM Pameaids. 
PCMPLRP 2” Mee3lyh 


PCV CANDE ",38)3 BKs PPC SOCTEE SIO FEONT AP2","3901)3 


PPC™CTOLAP"»s4351)3 
IF Yi THEN 
BEGIN. 
WRITECPRINT®N)3 
_TOTALSSACL4I: 
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PC"DKA 4,773 PC"Bki ",B)3 PENEGTH "21723 PCPROCL "2603 


00025200 
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00025500 
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00026000 
00026400 
00U26200 
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00026500 
00026600 
00026700 
00926800 
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Q0027000 
000247100 
00027200 
00027300 
00027400 
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| 00027800 __ 


00027900 
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00026500 
00028600 
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ENO: 00029100 
ENDS 00029200 
IF GRAPHS% ARE DESIRED Se ae ne ener vee ©1071) -F: 2 1°10 ene eS 
THEN BEGIN 00029400 
WRITECPRINTCPAGE) 33 00029500 
RAPHET CST Re Of OOO 9606 8 
WRITECPRINTLPAGE])3 00029700 
GRAPHITCSTR2s1)3 00029800 
END? eo ie pe en O00 CIO OO. mw ee ee a 
IF ENOTOG THEN GO TO EOF ELSE 00030000 
BEGIN 00030100 
ND M ZAI 29 a OE OOO Sean? 
GO TO DOAGAINS 00030300 
ENDS 00030400 
QO TO OQAGAINS oO OO OHI FON 
EOFS END. 00030600 
ENDJENDe LAST CARD ON OCRDING TAPE 99999999 
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